perm filename FOO[1,JMC]17 blob sn#826471 filedate 1986-10-18 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	(setq base(setq ibase 10.))
C00003 ENDMK
CāŠ—;
(setq base(setq ibase 10.))
(defun foo (p q) (difference (sqrt (plus (times q q) p))
			   (sqrt (difference (times q q) p))))

3.14189625 
3.14159292 
0.0314941406 
(foo 355.0 113.0)
(quotient 355.0 113)
(setq base (setq ibase 10.))
(foo 103993.0 33102.0)
sqrt(1095846397) - sqrt(1095638411)
(difference (times 33102 33102) 103993)